home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue02 / vol3no1 / armadillo < prev    next >
Encoding:
Text File  |  1989-10-02  |  4.1 KB  |  115 lines
  1. *BASIC
  2. LOAD"$.RESOURCES.ADIT.ADIT"
  3. *ACCESS $.RESOURCES.ADIT.ADIT WR
  4. *RENAME $.RESOURCES.ADIT.ADIT $.RESOURCES.ADIT.AditORIGIN
  5.    65 REM UPDATE 25/7/89 BY Stuart Halliday
  6.    72 PROCfindcurrentdrive
  7.    73 c_d1%=c_d%:c_d1$="floppy drive :"+STR$c_d1%
  8.    74 *DIR $
  9.   310 WHEN 0 : PROCTitle("SelectEntry") : PROCSelectEntry
  10.   320 WHEN 1 : PROCTitle("LoadAFile") : PROCLoadAFile
  11.   330 WHEN 2 : PROCTitle("ChangeSpeed") : PROCChangeSpeed
  12.   340 WHEN 16: PROCPlayPortion
  13.   350 WHEN 4 : PROCTitle("Normalise"):FOR Z=1 TO 1E4:NEXT:PROCNormalise
  14.   360 WHEN 5 : PROCTitle("NewVolume") : PROCNewVolume
  15.   370 WHEN 6 : PROCTitle("SaveAFile") : PROCSaveAFile
  16.   380 WHEN 7 : PROCTitle("RenameEntry") : PROCRenameEntry
  17.   390 WHEN 8 : PROCTitle("ArthurPrompt") : PROCArthurPrompt
  18.   400 WHEN 9 : PROCTitle("GainSample") : PROCGainSample
  19.   410 WHEN 10 : PROCTitle("Reverse") : PROCReverse
  20.   420 WHEN 11 : PROCTitle("Delete") : PROCDelete
  21.   430 WHEN 12 : PROCTitle("Insert") : PROCInsert
  22.   440 WHEN 13 : PROCTitle("PROCCopy") : PROCCopy
  23.   450 WHEN 14 : PROCTitle("MergeSamples") : PROCMergeSamples
  24.   460 WHEN 17 : PROCStopPlaying
  25.   470 WHEN 3  : PROCTitle("Sampler") : PROCSampler
  26.   480 WHEN 15 : PROCEcho
  27.   490 WHEN 18 : PROCScrollLeft
  28.   500 WHEN 19 : PROCScrollRight
  29.   510 WHEN 20 : PROCTitle("Mark1") : PROCMark1
  30.   520 WHEN 21 : PROCTitle("Insert") : PROCInsertNull
  31.   530 WHEN 22 : PROCTitle("RemoveSample") : PROCRemoveEntry
  32.   540 WHEN 23 : PROCNewScale
  33.   550 WHEN 24 : PROCTitle("Mark2") : PROCMark2
  34.   575 WHEN 27 : PROCchangedrive
  35.   665 PROCtrap_errors
  36.  1005 PROCAddBox2("Drive_"+STR$c_d%,572,960-128)
  37.  1135 OSCLI"DRIVE "+STR$c_d1%:*MOUNT
  38.  3440 WAIT : LINE ScrL+P%,ScrB,ScrL+P%,ScrB+512
  39.  3445 LINE ScrL+P%-4,ScrB+260,ScrL+P%+4,ScrB+260:GCOL0,Fore1
  40.  7295 OSCLI"MOUNT"
  41.  7305 PROCDrawGraph
  42.  7605 PROCDrawGraph
  43. 14060 DEFPROCtrap_errors
  44. 14070 err=&0000FF AND ERR
  45. 14080 CASE err OF
  46. 14090 WHEN &BD OR &C3 : PROCunlockfile : REM FILE LOCKED
  47. 14100 WHEN &9A :PROCchangedisc("The disc in "+c_d$+" is not ADFS!")
  48. 14110 WHEN &A9 OR &A8 :PROCchangedisc("The disc is damaged in some way.")
  49. 14120 WHEN &B3 :PROCchangedisc("The current directory is full.")
  50. 14130 WHEN &C6 : PROCnewdisc : REM DISC FULL
  51. 14140 WHEN &D3 : PROCMSG(c_d$+" is empty place a disc in it!"):A$=GET$
  52. 14145 WHEN &D6 : PROCMSG("The Master disc is missing, place it in "+c_d1$+"press 'SPACE KEY' to continue."):A$=GET$:*MOUNT
  53. 14150 WHEN &99 OR &98 PROCcompactdisc
  54. 14160 WHEN &C9 : PROCMSG("Take the WRITE PROTECT TAB off the disc, press 'SPACE KEY' to continue."):A$=GET$:REM WRITE PROTECT TAB IS ON
  55. 14170 ENDCASE
  56. 14180 ENDPROC
  57. 14190 :
  58. 14210 DEFPROCnewdisc
  59. 14220 CLOSE#H%:OSCLI"DELETE "+N$
  60. 14230 PROCchangedisc("This disc is full.")
  61. 14240 ENDPROC
  62. 14250 :
  63. 14260 DEFPROCchangedisc(A$)
  64. 14270 PROCMSG(A$+"Do you wish to change it?")
  65. 14280 A$=GET$
  66. 14290 IF A$="Y" OR A$="y" THEN
  67. 14300   PROCMSG("Insert new disc in "+c_d$+" and press 'SPACE KEY' to continue.")
  68. 14310   A$=GET$
  69. 14320   PROCMSG("IF YOU WISH TO FORMAT THIS DISC PRESS '#' KEY OTHERWISE ANY KEY")
  70. 14330   A$=GET$
  71. 14340   PROCClear(0)
  72. 14350 ENDIF
  73. 14360 IF A$="#" OSCLI"FORMAT "+STR$c_d%+" D Y"
  74. 14370 *MOUNT
  75. 14380 ENDPROC
  76. 14390 :
  77. 14400 DEFPROCcompactdisc
  78. 14410 PROCMSG("COMPACTING DISC")
  79. 14420 $scratch=STR$c_d%+CHR$0
  80. 14430 REPEAT
  81. 14440   SYS"ADFS_FreeSpace",scratch TO R0,R1
  82. 14450   *COMPACT
  83. 14460 UNTIL R0=R1
  84. 14470 ENDPROC
  85. 14480 :
  86. 14490 DEFPROCunlockfile
  87. 14500 PROCMSG("THIS FILE IS LOCKED, UNLOCKING FILE...")
  88. 14510 X$=INKEY$(100)
  89. 14520 OSCLI("ACCESS "+N$+" WR")
  90. 14530 PROCMSG("FILE IS UNLOCKED. TRY RE-SAVING IT!"):X$=INKEY$(200)
  91. 14540 ENDPROC
  92. 14550 :
  93. 14560 DEFPROCfindcurrentdrive
  94. 14570 SYS"ADFS_Drives" TO c_d%,mx_f%,mx_h%
  95. 14580 IF c_d%<4  c_d$="floppy drive :"+STR$c_d% ELSE c_d$="hard drive :"+
  96. STR$c_d%
  97. 14590 mx_d%=mx_f%-1
  98. 14600 ENDPROC
  99. 14610 :
  100. 14620 DEFPROCselectdrive(c_d%)
  101. 14630 OSCLI"DRIVE "+STR$c_d%
  102. 14640 *MOUNT
  103. 14650 ENDPROC
  104. 14660 :
  105. 14670 DEFPROCchangedrive
  106. 14680 c_d% +=1
  107. 14690 IF c_d%>mx_d% LET c_d%=0
  108. 14700 IF c_d%<4 LET c_d$="floppy drive :"+STR$c_d% ELSE c_d$="hard drive :"+STR$c_d%
  109. 14710 B$(27)="Drive_"+STR$c_d%
  110. 14720 PROCDrawBoxes2(27)
  111. 14730 OSCLI"DRIVE "+STR$c_d%
  112. 14740 PROCClearPendingMouse
  113. 14750 ENDPROC
  114. SAVE"$.RESOURCES.ADIT.ADIT"
  115.